home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / framework / newEventLoop.e < prev    next >
Encoding:
Text File  |  1980-01-01  |  470 b   |  19 lines
  1. -> newEventLoop abstrakcyjna klasa do obsîugi zdarzeï
  2. -> uzupeîniona o procedure zwalniajâca pamiëci na wszystkie zdarzenia
  3.  
  4. OPT MODULE
  5. OPT EXPORT
  6.  
  7. MODULE 'fw/wbObject','fw/eventLoop'
  8.  
  9. OBJECT newEventLoop OF eventLoop
  10. ENDOBJECT
  11.  
  12. -> zwalnia pamiëê na wszystkie podîâczone zdarzenia (obiekty)
  13. PROC discard() OF newEventLoop
  14.   DEF signalBit,wbObj: PTR TO wbObject
  15.   FOR signalBit:=0 TO NUMSIGNALS-1
  16.     IF wbObj:=self.wbObjs[signalBit] THEN wbObj.remove()
  17.   ENDFOR
  18. ENDPROC
  19.